﻿namespace Ki
open System.Collections.Generic
module Utilities =
    let rec LongitudeSections(tLayer : int, tMapsPerX : List<int>) =
        match tLayer with
        | 0 -> 1
        | n -> LongitudeSections(n-1, tMapsPerX) * tMapsPerX.Item(n-1)
    let rec LatitudeSections(tLayer : int, tMapsPerY : List<int>) =
        match tLayer with
        | 0 -> 1
        | n -> LatitudeSections(n-1, tMapsPerY) * tMapsPerY.Item(n-1)